﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim act,dir,url
    		act = Request.QueryString("act") 
    		dir = Request.QueryString("tp")  
                url=Request.QueryString("url") 

%>
	<card title="删除文件"><p align="left">
        确定删除该文件吗?<br/>
    	<a href="delwenjian.asp?url=<%=url%>&amp;Action=login&amp;act=<%=act%>&amp;dir=<%=dir%>&amp;sid=<%=sid%>">确定删除</a><br/>
-------------<br/>
<a href='wenjian.asp?url=<%=url%>&amp;sid=<%=sid%>'>返回文件管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim act,dir,url,Fso
    		act = Request.QueryString("act") 
    		dir = Request.QueryString("dir")  
                url=Request.QueryString("url") 
                if act="" then act=0

	%>
	<card id="login" title="删除文件" ontimer="wenjian.asp?url=<%=url%>&amp;sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
SET Fso = CreateObject("Scripting.FileSystemObject")
if act=1 then
Fso.DeleteFolder Server.MapPath(dir),True
else
Fso.DeleteFile Server.MapPath(dir),True
end if
set fso=nothing
		%>删除文件成功!<br/>
<a href='wenjian.asp?url=<%=url%>&amp;sid=<%=sid%>'>返回文件管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 

%>
